﻿namespace SamdomBasicCalculator

open System
open System.Windows.Forms
open System.Drawing


module SamDomFonts = 
    let fetchFontFamily (name: string)  = 
        let font = 
            FontFamily.Families
            |> Array.tryFind(fun family -> family.Name.ToLower() = name.ToLower()) in
        match font with
        | None -> FontFamily.Families.[0] (* could not find the family, so return the default font *) 
        | Some(f) -> f



